home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / comm / misc / xprz31.lha / XprZmodem / xprsprintf.a < prev    next >
Text File  |  1993-08-13  |  645b  |  32 lines
  1.         XDEF _xprsprintf
  2.  
  3. *        XREF _AbsExecBase
  4. *        XREF _LVORawDoFmt
  5.  
  6. ABSEXECBASE    EQU    4
  7. RawDoFmt    EQU    -522
  8.  
  9.         SECTION CODE
  10.  
  11. _xprsprintf:    ; ( ostring, format, {values} )
  12.         movem.l a2/a3/a6,-(sp)
  13.  
  14.         move.l    4*4(sp),a3       ;Get the output string pointer
  15.         move.l    5*4(sp),a0       ;Get the FormatString pointer
  16.         lea.l    6*4(sp),a1       ;Get the pointer to the DataStream
  17.         lea.l    stuffChar(pc),a2
  18. *        move.l    _AbsExecBase,a6
  19. *        jsr    _LVORawDoFmt(a6)
  20.         move.l    ABSEXECBASE,a6
  21.         jsr    RawDoFmt(a6)
  22.  
  23.         movem.l (sp)+,a2/a3/a6
  24.         rts
  25.  
  26.     ;------ PutChProc function used by RawDoFmt -----------
  27.     stuffChar:
  28.         move.b    d0,(a3)+        ;Put data to output string
  29.         rts
  30.  
  31.         end
  32.